Imports OpenAccess

<Persistent()> Public Class Parent

#Region "Persistent Variables"
    Private colName As String
    Private refAChilds As IList(Of Child) = New List(Of Child)
    Private refBChilds As IList(Of Child) = New List(Of Child)
    <OpenAccess.Depend()> Private refCars As IList(Of Car) = New List(Of Car)
    Private refWorkshops As IList(Of WorkShop) = New List(Of WorkShop)
#End Region

#Region "Public Interface"
    Public Property Name() As String
        Get
            Return colName
        End Get
        Set(ByVal newValue As String)
            colName = newValue
        End Set
    End Property

    Public ReadOnly Property AChilds() As IList(Of Child)
        Get
            Return refAChilds
        End Get
    End Property

    Public ReadOnly Property BChilds() As IList(Of Child)
        Get
            Return refBChilds
        End Get
    End Property

    Public ReadOnly Property Cars() As IList(Of Car)
        Get
            Return refCars
        End Get
    End Property

    Public ReadOnly Property Workshops() As IList(Of WorkShop)
        Get
            Return refWorkshops
        End Get
    End Property
#End Region

End Class
